home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
TPUG Xtras
/
Unreleased
/
(c)sd.d64
/
data collisions
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-02-04
|
1KB
|
79 lines
10 POKE 51,0: POKE 52,48: POKE 55,0: POKE 56,48: CLR
20 V=53248: PT=2040: CH=14336: SD=12288
30 GOSUB 9000: REM CHARACTERS
40 GOSUB 10000: REM SPRITES
50 POKEV+32,2: POKE V+33,1: PRINT"[147]";
60 POKEV+34,2: POKE V+35,3
90 POKEV+22,PEEK(V+22)OR16
100 POKE V+24,PEEK(V+24)AND240OR14
110 PRINT"";
120 FOR I=1 TO 5
130 :PRINTTAB(25)"[152]B"
140 NEXT I
150 PRINT"";
160 FOR I=1 TO 5
170 :PRINTTAB(25)"[129]A"
180 NEXT I
190 PRINT"";
200 FOR I=1 TO 5
210 :PRINTTAB(25)"[129]@"
220 NEXT I
230 POKE V+21,7
240 GOSUB 1000
250 POKE V+31,0
500 FOR S=0 TO 2
510 ::X=30: DX=1
520 ::X=X+DX
530 ::POKE V+2*S,X
540 ::IF PEEK(V+31) THEN DX=-1: GOTO 520
550 ::IF(X>30) AND (X<254) GOTO 520
560 ::GOSUB 1000
570 NEXT S
575 IF F GOTO 900
580 FOR I=1 TO 30
590 :AD=INT(RND(1)*1000)
600 :POKE1024+AD,0
610 :POKE55296+AD,8
620 NEXT I
630 F=-1: POKE V+4,30: GOTO 250
900 POKE V+24,PEEK(V+24)AND240OR4
910 POKE V+22,PEEK(V+22)AND239
920 POKE V+21,0
999 STOP
1000 GETT$:IFT$=""THEN1000
1010 RETURN
8999 END
9000 REM CONSTRUCT MC CHARS
9010 FOR I=0 TO 7
9020 :POKE CH+I,85: REM PATTERN 01
9030 :POKE CH+8+I,170: REM------10
9040 :POKE CH+16+I,255: REM-----11
9050 :POKE CH+256+I,0
9060 NEXT I
9070 RETURN
10000 REM CONSTRUCT SPRITE
10010 FOR I=0 TO 62
10020 :READ Z
10030 :POKE SD+I,Z
10040 NEXT I
10050 POKEV+16,0
10060 POKEV+23,7: POKE V+29,7
10070 FOR I=0 TO 2
10075 :POKE V+39+I,0
10080 :POKE PT+I,192
10090 :POKE V+2*I,30
10100 :POKE V+2*I+1,80+56*I
10110 NEXT I
10120 RETURN
11000 DATA 7,0,0, 31,192,0
11010 DATA 63,224,0, 127,240,0
11020 DATA 127,240,0, 255,248,0
11030 DATA 255,248,0, 255,248,0
11040 DATA 255,248,0, 127,240,0
11050 DATA 127,240,0, 63,224,0
11060 DATA 31,192,0, 7,0,0
11070 DATA 0,0,0, 0,0,0
11080 DATA 0,0,0, 0,0,0
11090 DATA 0,0,0, 0,0,0
11100 DATA 0,0,0